NTAKU         ;ޮ   

MEETDIANA
  LD  L,75H
  CALL  OKHANYO
  LD  A,1
  LD  (@MEETDIANA),A
  CALL  ADDMEM
  LD  (HL),3
  XOR A
  LD  (40H*2+P_STATUS),A
  LD  A,2
  JP  SENTAKU

NUMA0:
  LD  A,(40H*4+P_STATUS)
  IF  A=0FFH THEN
    LD  A,(PARTY_NUMBER)
      IF A=5 THEN
        CALL ALV
        IF A=5 JR MEETPICTO
      FI
  FI
  LD  L,76H
  CALL  OKHANYO
  LD A,1
  JP    SENTAKU         ; 

MEETPICTO
  LD  L,77H
  CALL  OKHANYO
  LD  A,1
  LD  (@MEETPICTO),A
  CALL  ADDMEM
  LD  (HL),5
  XOR A
  LD  (40H*4+P_STATUS),A
  LD  A,1               ; 
  JP  SENTAKU

MEETOSAMA2:
  LD  A,1
  LD  (@MEETOSAMA2),A
  LD  L,78H
  CALL  OKHANYO
  LD  A,0
  JP  SENTAKU

SOTO_OJO:
  LD  A,(PARTY_NUMBER)
  IF  A=6 THEN
    CALL  ALV
      IF  A=6 THEN
        CALL EKKEN
         IF A=0 THEN
   